home *** CD-ROM | disk | FTP | other *** search
Wrap
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <!--- Updates the content to the Database Record = 2 Also displays the results. ---> <html> <head> <!--#include file="adovbs.inc"--> <TITLE>update Database with contents from editor</TITLE> <!--- TextHTMLHField is the hidden field posted to this page, it contains the editor html content ---> <% temp=Request.Form("TextHTMLHField") temp=Replace(temp, "'", "''") set conn=server.createobject("adodb.connection") conn.open "DSN=editor" SQLstmt = "UPDATE WYSIWYG SET edit_html = '" & temp & "' WHERE edit_id = 2" Set RS = Conn.Execute(SQLStmt) set rstemp=nothing Conn.Close set conntemp=nothing %> </head> <body bgcolor="white"> <table width="625" cellpadding="0" cellspacing="0" border="0"> <tr> <td width="113" height="35" valign="TOP" bgcolor="#639C63"><a href="http://www.ektron.com"><img src="EKlogo.gif" width=113 height=35 alt="" border=0></a></td> <td width="505" align="CENTER" valign="BOTTOM" bgcolor="#639C63"></td> </tr> <tr> <td align="CENTER" valign="TOP" bgcolor="#639C63"><img src="http://www.ektron.com/images/space.gif" width=1 height=300 alt="" border="0"></td> <td align="center" valign="top"> <table> <tr> <td></td> </tr> <tr> <td><font face="verdana, arial, helvetica" size="3">The Database has been updated Click <a href="index.asp">here</a> to return to main page</font></td> </tr> </table> </td> </tr> </table> </body> </html>